home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 401-425 / disk_403 / rexxhostlib / testdemo.rexx < prev   
OS/2 REXX Batch file  |  1992-05-06  |  518b  |  25 lines
  1. /* A test program for the fancy demo.  To run, issue  */
  2. /* the command testdemo from fancy's command window   */
  3. arg code
  4.  
  5. address 'FancyDemo'
  6.  
  7. 'good'   /* a command */
  8. say 'rc=' rc 'result=' result
  9.  
  10. 'BAD'    /* another command */
  11. say 'rc=' rc 'result=' result
  12.  
  13. /* now request a result string (an extension in ARexx) */
  14. options results
  15. say 'Requesting results'
  16.  
  17. 'good'   /* the good command again */
  18. say 'rc=' rc 'result=' result
  19.  
  20.  
  21. /* try it with three arguments. */
  22. good job man
  23.  
  24. exit 10   /* return the argument */
  25.